(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     74605,       1863]
NotebookOptionsPosition[     69269,       1681]
NotebookOutlinePosition[     69898,       1705]
CellTagsIndexPosition[     69818,       1700]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["InterfacialThinFilmNLS Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->221624252],

Cell["InterfacialThinFilmNLS`", "Categorization",
 CellLabel->"Context",
 CellID->169342178],

Cell["InterfacialThinFilmNLS/ref/InputTransferC", "Categorization",
 CellLabel->"URI",
 CellID->511985160]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["InputTransferC", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 "\n",
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["InputTransferC",
    BaseStyle->"Link",
    ButtonData->"paclet:InterfacialThinFilmNLS/ref/InputTransferC"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox[
       StyleBox["\[CapitalEpsilon]", "TR"], 
       StyleBox["p", "TI"]], ",", 
      SuperscriptBox[
       StyleBox["\[CapitalEpsilon]", "TR"], 
       StyleBox["s", "TI"]]}], "}"}], ",", 
    StyleBox["\[Omega]", "TR"], ",", 
    SubscriptBox[
     StyleBox["\[Theta]", "TR"], 
     StyleBox["0", "TR"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["0", "TR"]], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["d", "TI"], 
         StyleBox["1", "TR"]]}], "}"}], ",", 
      RowBox[{"...", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["n", "TI"], 
          StyleBox["k", "TI"]], ",", 
         SubscriptBox[
          StyleBox["d", "TI"], 
          StyleBox["k", "TI"]]}], "}"}]}]}], "}"}], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox[
      RowBox[{"k", "+", "1"}], "TR"]], ",", 
    StyleBox["v", "TI"], ",", 
    SubsuperscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["v", "TI"], 
     StyleBox["sheet", "TI"]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates the input field transfer coefficients at \
interface v from input electric field (not necessarily normalized) Jones \
vector ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox["E", "P"], ",", 
    SuperscriptBox["E", "s"]}], "}"}]], "InlineFormula"],
 " at frequency ",
 Cell[BoxData[
  StyleBox["\[Omega]", "TR"]], "InlineFormula",
  ShowStringCharacters->False],
 " with input angle ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["0", "TR"]]], "InlineFormula"],
 ", bulk material refractive indices ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 ", thin film layer thicknesses ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["d", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 ", and interfacial polarized sheet refractive index ",
 Cell[BoxData[
  SubsuperscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["v", "TI"], 
   StyleBox["sheet", "TI"]]]],
 ".  Refraction angles are calculated internally using Snell's law. Returns ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox[
     StyleBox["\[CapitalEpsilon]", "TR"], 
     StyleBox["x", "TI"]], ",", " ", 
    SuperscriptBox[
     StyleBox["\[CapitalEpsilon]", "TR"], 
     StyleBox["y", "TI"]], ",", 
    SuperscriptBox[
     StyleBox["\[CapitalEpsilon]", "TR"], 
     StyleBox["z", "TI"]]}], "}"}]], "InlineFormula",
  ShowStringCharacters->False],
 "  at interface ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 ".\n",
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["InputTransferC",
    BaseStyle->"Link",
    ButtonData->"paclet:InterfacialThinFilmNLS/ref/InputTransferC"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox[
       StyleBox["\[CapitalEpsilon]", "TR"], 
       StyleBox["p", "TI"]], ",", 
      SuperscriptBox[
       StyleBox["\[CapitalEpsilon]", "TR"], 
       StyleBox["s", "TI"]]}], "}"}], ",", 
    StyleBox["\[Omega]", "TR"], 
    StyleBox[",", "TR"], 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         StyleBox["0", "TR"]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["0", "TR"]]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["d", "TI"], 
         StyleBox["1", "TR"]]}], "}"}], ",", 
      RowBox[{"...", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["\[Theta]", "TR"], 
          StyleBox["k", "TR"]], ",", 
         SubscriptBox[
          StyleBox["n", "TI"], 
          StyleBox["k", "TI"]], ",", 
         SubscriptBox[
          StyleBox["d", "TI"], 
          StyleBox["k", "TI"]]}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         StyleBox[
          RowBox[{"k", "+", "1"}], "TR"]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         RowBox[{"k", "+", "1"}]]}], "}"}]}], "}"}], ",", 
    StyleBox["v", "TI"], ",", 
    SubsuperscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["v", "TI"], 
     StyleBox["sheet", "TI"]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox[
     StyleBox["\[CapitalEpsilon]", "TR"], 
     StyleBox["x", "TI"]], ",", " ", 
    SuperscriptBox[
     StyleBox["\[CapitalEpsilon]", "TR"], 
     StyleBox["y", "TI"]], ",", 
    SuperscriptBox[
     StyleBox["\[CapitalEpsilon]", "TR"], 
     StyleBox["z", "TI"]]}], "}"}]], "InlineFormula",
  ShowStringCharacters->False],
 " with refraction angles specified. ",
 ButtonBox["Eq. 45",
  BaseStyle->"Link",
  ButtonData->
   "paclet:InterfacialThinFilmNLS/ReferencePages/Symbols/InputTransferC#\
148884605"],
 "."
}], "Usage",
 CellChangeTimes->{{3.5979425166964293`*^9, 3.5979428703498497`*^9}, {
   3.5979430914174385`*^9, 3.59794330878442*^9}, {3.597943763003418*^9, 
   3.5979437837826543`*^9}, 3.5986376905155296`*^9}],

Cell["\<\
InputTransferC along with OutputTransferC are the primary functions of the \
thin film model.\
\>", "Notes",
 CellChangeTimes->{{3.5979438357151456`*^9, 3.5979438665115995`*^9}, {
  3.598637621119432*^9, 3.598637624729437*^9}},
 CellID->68584648],

Cell[TextData[{
 "InputTransferC computes the transfer coefficient matrix ",
 Cell[BoxData[
  OverscriptBox["T", "\[LeftArrow]"]]],
 " and performs the matrix multiplication with the input field  ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox[
     StyleBox["\[CapitalEpsilon]", "TR"], 
     StyleBox["p", "TI"]], ",", 
    SuperscriptBox[
     StyleBox["\[CapitalEpsilon]", "TR"], 
     StyleBox["s", "TI"]], ",", "0"}], "}"}]], "InlineFormula",
  ShowStringCharacters->False],
 " to satisfy ",
 ButtonBox["Eq. 5",
  BaseStyle->"Link",
  ButtonData->
   "paclet:InterfacialThinFilmNLS/ReferencePages/Symbols/InputTransferC#\
148884605"],
 " (or ",
 ButtonBox["Eq. 45",
  BaseStyle->"Link",
  ButtonData->
   "paclet:InterfacialThinFilmNLS/ReferencePages/Symbols/InputTransferC#\
148884605"],
 ") so that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        SuperscriptBox["\[CapitalEpsilon]", "x"]},
       {
        SuperscriptBox["\[CapitalEpsilon]", "y"]},
       {
        SuperscriptBox["\[CapitalEpsilon]", "z"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
    "\[LongEqual]", 
    RowBox[{
     OverscriptBox["T", "\[LeftArrow]"], " ", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         SuperscriptBox["\[CapitalEpsilon]", "p"]},
        {
         SuperscriptBox["\[CapitalEpsilon]", "s"]},
        {"0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}]}], 
   TraditionalForm]],
  CellChangeTimes->{{3.5979443200837975`*^9, 3.5979444744490685`*^9}, {
   3.59794450967393*^9, 3.597944636487553*^9}}],
 "."
}], "Notes",
 CellChangeTimes->{{3.5979438357151456`*^9, 3.597943932937516*^9}, {
  3.597943975402791*^9, 3.5979440216568727`*^9}, {3.5979440826081796`*^9, 
  3.597944200898588*^9}, {3.597944234922248*^9, 3.597944317759393*^9}, {
  3.5979446497475767`*^9, 3.5979446810110316`*^9}, {3.597963761906969*^9, 
  3.5979637703621836`*^9}, {3.5986376663834953`*^9, 3.5986376778045115`*^9}},
 CellID->887937667],

Cell["The following options can be given: ", "Notes"],

Cell[BoxData[GridBox[{
   {Cell["   ", "ModInfo"], 
    ButtonBox["LocalFieldsFromLimits",
     BaseStyle->"Link",
     ButtonData->"paclet:InterfacialThinFilmNLS/ref/LocalFieldsFromLimits"], 
    ButtonBox["False",
     BaseStyle->"Link"], Cell["\<\
Specify whether to use boundary conditions to calculate input local fields or \
add a sheet layer and calculate fields in the limit of zero thickness. \
\>", "TableText"]},
   {Cell["   ", "ModInfo"], 
    ButtonBox["SheetThickness",
     BaseStyle->"Link",
     ButtonData->"paclet:InterfacialThinFilmNLS/ref/SheetThickness"], "0", 
    Cell["\<\
SheetThickness is an option for InputTransferC that is used if the option \
LocalFieldsFromLimits \[Rule] True. Set InterfaceSide->First or Last to \
choose calculating the fields at the bottom or top, respectively, interfaces \
of the sheet layer.\
\>", "TableText"]},
   {Cell["   ", "ModInfo"], 
    ButtonBox["TransferCoefficientMethod",
     BaseStyle->"Link",
     ButtonData->
      "paclet:InterfacialThinFilmNLS/ref/TransferCoefficientMethod"], 
    "\"\<SII\>\"", Cell["\<\
specifies how the local interfacial field is calculated.  Possible values are \
\"SII\" for calculation from subsystem II or \"PartialSTC\" for calculation \
from a geometric series in the partial system transfer coefficients and the \
layer phase. \
\>", "TableText"]},
   {Cell["   ", "ModInfo"], 
    ButtonBox["Incidence",
     BaseStyle->"Link",
     ButtonData->"paclet:InterfacialThinFilmNLS/ref/Incidence"], 
    ButtonBox["First",
     BaseStyle->"Link"], Cell["\<\
specifies if the input beam is incident from the medium 0 (First, default) or \
medium k+1 (Last).\
\>", "TableText"]},
   {Cell["   ", "ModInfo"], 
    ButtonBox["InterfaceSide",
     BaseStyle->"Link",
     ButtonData->"paclet:InterfacialThinFilmNLS/ref/InterfaceSide"], 
    ButtonBox["First",
     BaseStyle->"Link"], Cell["\<\
specify from which side of the interface the local field should be \
calculated.  Top side is First, bottom side is Last.  Either option gives \
identical results for InputTransferC.\
\>", "TableText"]},
   {Cell["   ", "ModInfo"], 
    ButtonBox["AzimuthAngle",
     BaseStyle->"Link",
     ButtonData->"paclet:InterfacialThinFilmNLS/ref/AzimuthAngle"], "0", 
    Cell["\<\
specify if the input beam is incident in a plane rotated from sample xz plane \
by AzimuthAngle.  This option has not been tested thoroughly.\
\>", "TableText"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.5979433294364557`*^9, 3.5979435081065693`*^9}, {
  3.5979450349202538`*^9, 3.5979450357782555`*^9}, {3.598020611977584*^9, 
  3.598020614832389*^9}, {3.6257743179480753`*^9, 3.6257743203036795`*^9}}],

Cell[TextData[{
 "The primary options of interest for normal applications will be ",
 ButtonBox["Incidence",
  BaseStyle->"Link",
  ButtonData->"paclet:InterfacialThinFilmNLS/ref/Incidence"],
 " and ",
 ButtonBox["AzimuthAngle",
  BaseStyle->"Link",
  ButtonData->"paclet:InterfacialThinFilmNLS/ref/AzimuthAngle"],
 " with all other options used for internal consistency checks.  See ",
 ButtonBox["below",
  BaseStyle->"Link",
  ButtonData->
   "paclet:InterfacialThinFilmNLS/ReferencePages/Symbols/InputTransferC#\
18593093"],
 "."
}], "Notes",
 CellChangeTimes->{{3.5979447134746885`*^9, 3.5979449216278543`*^9}},
 CellID->1334113],

Cell[TextData[{
 StyleBox[ButtonBox["InputTransferC",
  BaseStyle->"Link",
  ButtonData->"paclet:InterfacialThinFilmNLS/ref/InputTransferC"],
  FontWeight->"Bold"],
 StyleBox[" has been optimized to executed fastest if no options are \
specified.",
  FontWeight->"Bold"]
}], "Notes",
 CellChangeTimes->{{3.5979449496143036`*^9, 3.5979449916447773`*^9}, {
  3.597964801875597*^9, 3.5979648093792095`*^9}},
 CellID->534591821]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Nonlinear Spectroscopy of Thin Film Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:InterfacialThinFilmNLS/tutorial/Interfacial Nonlinear Spectroscopy \
Of Thin Film Systems"]], "Tutorials",
 CellChangeTimes->{{3.5979436751566634`*^9, 3.597943689680289*^9}},
 CellID->341631938],

Cell[TextData[ButtonBox["Methods to Compute Input Transfer Coefficients",
 BaseStyle->"Link",
 ButtonData->
  "paclet:InterfacialThinFilmNLS/tutorial/Methods To Compute Input Transfer \
Coefficients"]], "Tutorials",
 CellChangeTimes->{{3.597943693330695*^9, 3.5979436950778985`*^9}, {
  3.597943731957363*^9, 3.5979437429553823`*^9}},
 CellID->18593093]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}},
 CellID->148884605],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Simulated vibrational sum frequency generation from a multilayer thin film \
system with two active interfaces,\" J. Chem. Phys. 138, 154708 (2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1063/1.4799921"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597766065189121*^9, 3.597766067909125*^9}, {
  3.597766108593182*^9, 3.597766108653182*^9}},
 CellID->134447493]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["OutPutTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/OutPutTransferC"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.597943534486216*^9, 3.5979435615376635`*^9}, {
  3.5979435995247307`*^9, 3.5979436025667353`*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell[TextData[ButtonBox["Transfer Matrix Formalism",
 BaseStyle->"Link",
 ButtonData->
  "paclet:TransferMatrixFormalism/guide/Transfer Matrix Formalism"]], \
"MoreAbout",
 CellChangeTimes->{{3.598637807663694*^9, 3.5986378192457104`*^9}},
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell["\<\
Calculate mIR input field transfer coefficient at the three interfaces of a \
2-layer system:\
\>", "ExampleText",
 CellChangeTimes->{{3.59796484931628*^9, 3.5979648874739475`*^9}},
 CellID->488298743],

Cell[BoxData[{
 RowBox[{"<<", "InterfacialThinFilmNLS`"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "TransferMatrixFormalism`Data`Indices`"}]}], "Input",
 CellChangeTimes->{{3.5979648268668404`*^9, 3.5979648314220486`*^9}, {
   3.5979648903911524`*^9, 3.5979649003283696`*^9}, {3.597964933603228*^9, 
   3.597964943057845*^9}, {3.597964975178301*^9, 3.597965006518756*^9}, {
   3.5979650585614476`*^9, 3.5979650616034527`*^9}, 3.597965095829913*^9, {
   3.59863784756675*^9, 3.5986378565567627`*^9}, 3.5986378898988094`*^9},
 CellLabel->"In[10]:=",
 CellID->91183982],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Theta]0", "=", 
      RowBox[{"56.", "\[Degree]"}]}], ",", 
     RowBox[{"n0", "=", "1"}], ",", 
     RowBox[{"d1", "=", 
      RowBox[{"200", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "7"}]]}]}], 
     RowBox[{"(*", "nm", "*)"}], ",", 
     RowBox[{"d2", "=", 
      RowBox[{"300", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "7"}]]}]}], 
     RowBox[{"(*", "nm", "*)"}], ",", 
     RowBox[{"\[Omega]", "=", "2960"}], " ", 
     RowBox[{"(*", 
      SuperscriptBox["cm", 
       RowBox[{"-", "1"}]], "*)"}], ",", 
     RowBox[{"JonesV", "=", 
      RowBox[{"Normalize", "@", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}]}], " ", 
     RowBox[{"(*", 
      RowBox[{
       SuperscriptBox["E", "p"], " ", "and", " ", 
       SuperscriptBox["E", "s"]}], "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"nsheets", "=", 
      RowBox[{"{", 
       RowBox[{"nPTCDIc8", ",", "nPTCDIc8", ",", "nSi"}], "}"}]}]}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"TableForm", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"InputTransferC", "[", 
        RowBox[{"JonesV", ",", "\[Omega]", ",", "\[Theta]0", ",", "n0", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"nPTCDIc8", "[", "\[Omega]", "]"}], ",", "d1"}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"nSiO2", "[", "\[Omega]", "]"}], ",", "d2"}], "}"}]}], 
          "}"}], ",", 
         RowBox[{"nSi", "[", "\[Omega]", "]"}], ",", "v", ",", 
         RowBox[{
          RowBox[{"nsheets", "[", 
           RowBox[{"[", "v", "]"}], "]"}], "[", "\[Omega]", "]"}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"TableHeadings", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<v=1\>\"", ",", "\"\<v=2\>\"", ",", "\"\<v=3\>\""}], 
         "}"}], " ", ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SuperscriptBox[\(E\), \(x\)]\)\>\"", ",", 
          "\"\<\!\(\*SuperscriptBox[\(E\), \(y\)]\)\>\"", ",", 
          "\"\<\!\(\*SuperscriptBox[\(E\), \(z\)]\)\>\""}], "}"}]}], 
       "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.59796511111794*^9, 3.5979651256727657`*^9}, {
  3.597965160071826*^9, 3.597965273360225*^9}, {3.5979653059486823`*^9, 
  3.597965502090827*^9}, {3.597965552400915*^9, 3.597965712540197*^9}, {
  3.5979658079207644`*^9, 3.597965973752056*^9}},
 CellLabel->"In[12]:=",
 CellID->130338898],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"\\!\\(\\*SuperscriptBox[\\(E\\), \\(x\\)]\\)\"\>",
       HoldForm], 
      TagBox["\<\"\\!\\(\\*SuperscriptBox[\\(E\\), \\(y\\)]\\)\"\>",
       HoldForm], 
      TagBox["\<\"\\!\\(\\*SuperscriptBox[\\(E\\), \\(z\\)]\\)\"\>",
       HoldForm]},
     {
      TagBox["\<\"v=1\"\>",
       HoldForm], 
      RowBox[{"0.4610174301704366`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.11326672733437969`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.5599219910930844`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.3020225867896199`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.2697818190357504`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.06603487972130506`", " ", "\[ImaginaryI]"}]}]},
     {
      TagBox["\<\"v=2\"\>",
       HoldForm], 
      RowBox[{"0.3700278185036917`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.023276036361720282`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.45143909103694957`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.11114132914844271`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.283589239209699`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.1959494086576926`", " ", "\[ImaginaryI]"}]}]},
     {
      TagBox["\<\"v=3\"\>",
       HoldForm], 
      RowBox[{"0.12835405247883527`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.22138798520797778`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.1521718210004085`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.18985902702330867`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.03198202953512613`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.05516333099658953`", " ", "\[ImaginaryI]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{"v=1", "v=2", "v=3"}, {
      "\!\(\*SuperscriptBox[\(E\), \(x\)]\)", 
       "\!\(\*SuperscriptBox[\(E\), \(y\)]\)", 
       "\!\(\*SuperscriptBox[\(E\), \(z\)]\)"}}]]]], "Output",
 CellChangeTimes->{
  3.5979657129613976`*^9, {3.597965823957593*^9, 3.5979658548144464`*^9}, 
   3.5979659375277925`*^9, 3.5979677732016177`*^9, 3.597968152819685*^9, 
   3.5979692165591526`*^9, 3.598007183466672*^9, 3.598008906055791*^9, 
   3.598637893138814*^9},
 CellLabel->"Out[12]//TableForm=",
 CellID->255465086]
}, Open  ]],

Cell["\<\
Plot the magnitude of th input field transfer coefficient for an s-polarized \
mIR beam at the three interfaces of a 2-layer system as a function of mIR \
frequency:\
\>", "ExampleText",
 CellChangeTimes->{{3.59796484931628*^9, 3.5979648874739475`*^9}, {
  3.597965530576477*^9, 3.597965543165699*^9}, {3.5979659951708937`*^9, 
  3.5979660258405476`*^9}, {3.5979667081411467`*^9, 3.5979667081411467`*^9}, {
  3.597967984040988*^9, 3.597967989376198*^9}},
 CellID->175762243],

Cell[BoxData[
 RowBox[{"<<", "TransferMatrixFormalism`Data`Indices`"}]], "Input",
 CellChangeTimes->{3.62577572047853*^9},
 CellLabel->"In[14]:=",
 CellID->5168052],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Theta]0", "=", 
      RowBox[{"56.", "\[Degree]"}]}], ",", 
     RowBox[{"n0", "=", "1"}], ",", 
     RowBox[{"JonesV", "=", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"E", "^", "p"}], "=", "0"}], "*)"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"d1", "=", 
      RowBox[{"200", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "7"}]]}]}], 
     RowBox[{"(*", "nm", "*)"}], ",", 
     RowBox[{"d2", "=", 
      RowBox[{"300", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "7"}]]}]}], 
     RowBox[{"(*", "nm", "*)"}], ",", "\n", 
     RowBox[{"nsheets", "=", 
      RowBox[{"{", 
       RowBox[{"nPTCDIc8", ",", "nPTCDIc8", ",", "nSi"}], "}"}]}]}], "}"}], 
   ",", "\n", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "@", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Abs", "@", 
         RowBox[{
          RowBox[{"InputTransferC", "[", 
           RowBox[{
           "JonesV", ",", "\[Omega]", ",", "\[Theta]0", ",", "n0", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"nPTCDIc8", "[", "\[Omega]", "]"}], ",", "d1"}], 
               "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"nSiO2", "[", "\[Omega]", "]"}], ",", "d2"}], "}"}]}],
              "}"}], ",", 
            RowBox[{"nSi", "[", "\[Omega]", "]"}], ",", "v", ",", 
            RowBox[{
             RowBox[{"nsheets", "[", 
              RowBox[{"[", "v", "]"}], "]"}], "[", "\[Omega]", "]"}]}], "]"}],
           "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"v", ",", "3"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Omega]", ",", "2900", ",", "3100"}], "}"}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<v=1\>\"", ",", "\"\<v=2\>\"", ",", "\"\<v=3\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\[Omega], \!\(\*SuperscriptBox[\(cm\), \(-1\)]\)\>\"", ",", 
        "\"\<|\!\(\*SubscriptBox[\(t\), \(0, v\)]\)|\>\""}], "}"}]}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5979667411050043`*^9, 3.5979667957207003`*^9}, {
  3.5979679221078796`*^9, 3.597967932606698*^9}},
 CellLabel->"In[13]:=",
 CellID->2334789],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {}, {
      Hue[0.67, 0.6, 0.6], 
      LineBox[CompressedData["
1:eJwV13dcTX8YB/CiNFSSREQiSZGUCsn3ZEYlDamMlCQUkoooLSIkSQsN5d7K
qJSGtEVpaC9pIbr33Ctpaf4+v7+83i+ce873eb7PkLM9Z3JiBg8PD4uXh+f/
P4cGb/LwJDKo9TkBK4+k0URR1slBFn51QmlSDT68x7hmK5zMWl8sCL9/Ih3r
CYvvrZifkUqT0F3JZBzW3p1EC8EbIiq8hpMYVNnlL86vX9HkgrbYJP2cQRXm
iYqMPafJb58H/1pTGNSHiE/OVxg0KbTI45+AL/nJ8BjAwet+zl2ayqDON/+K
kIFVv25WsoVD9rrSec/wvI09Viz4TMDoGl54mKv6biyNQR1+eXxrYDxNpg5V
ey3OYFArLmtJvYylSbXaaKAOLCqotdEbjhFaHm4NK/nbXTGFqSzXlHi4LlrL
YSyGJr4SS7qU3zCooD9dQ3vgWeVndLdkMqjjy9Ru9j+hiaimEN+RbAZ1z/RY
t/UjmhhIRFRfhePE9OS14UCuQuRjOGSlRbgUPIu5Q6UdbrsmI14dhfdb4G1x
KIdBzRSdUU7B3H/DLyzfMih2mknSuki8b973A+bvcJ7OSSJq4TQRiXJZ5gYH
HY2omAfvdZvBfghfOjCdMxRGkw8qy7wbYZc/HXty4fyYQ8lmeQzqJs270QB+
5VM3ZZLPoAY2XBe7+JAmQTsLmUaFDCpU8t3z8gc02ZORVHcWLhheJZ0C8614
MHkXPkio06HwFR5700rYkr1e8ATskDt7Wq+IQem7v74yC16hNLTaATZmrlbk
htCkI6LDLABWPbnJsxE+4JaWXArH6dpOP4W3rT9ovq2YQXF3znXfCE/GUD42
MH0/9IoMnC2m9MIbztLs/z59nybr6AneAtjTX/b9e1iG+fSldgmDumuoX7oT
bp5/p8UKjusO5pWHQ/xdZ3rAupxtR3lhIVs9y2x41TdP85xg5IsMl0/jPYPq
9Q3bvwROu928zgwOMngc/fceTRzHCq1cYOpd+8cy+Fvzg9Q0mP962u2rcPQu
zy81cBnlFmIGW72xn9UPP3t7XV0ZrgnZdFillEF9y+0ZrQ+iyW3eFQGG8J93
ZiPP4F3nRV47wldsrXa4wXmGnQLP4VOy2l5z4WTB6+mrPjAoltaSI6p3aXLC
/WzHLriqU/LdwB2aLOs9KGQPWy+3r30Nh5coWSfAnxWZdcqwiZpkYAnsuOxA
xPfbNBGLm8zogS8vb/0YBft71QjLfWRQglvSFkwH0oRwcjQo2KErbu5LeOxQ
/DFruCk7TtECPr/JLfMJ3NnfduzZLZocGVxsu6iMQZlPMjqkb9IkY47++i3w
7jYz+2cByFdlD56jMFMv9+46+J1NS3Qc7H7hS/zWGzSR9BQ4WwJzG3QvF1zH
eUdo6vyAH62oStCGZT6HflEsR/7MXOK40p8mF1klyXthT+XK/BA/mlTy/73s
CEcHuzWO+SI/txgvTIW1dDPfvfWhSVuS6AGtTwxK/Uap65AXTdRKt8hbwpz4
pewNcGDXmb8ecJLCGM9ZT5psWvDpfj48fFjUs/IK6o/av2NdsHFQedQfD5r8
MlRUnVHBoHQqJcrmwBH+N6p3wvSctkLNSzTpj3nz5CT8KEh3B3GniV7ud8db
cPp34d2UG01G/2ybXQWrZm3TVr5Ik4PW07vNKhmUwNrJ14/P4X56qCxwgy0L
P1XZnEW9CDvSGw6PyhGzpU40yazM9f8CsyR7VT1P00Rq86Ui2yrk/9dUkc92
NDl7gBnsD/9rlz5pcBz14HyTNQPWeRSsX2hDE1fmhqk+OPR32s7bR2nSIPln
s3M1nu9QK/78IE3WqC4TfgCzprdWth5AfugbtWbAwq60zpQpTdR9X7qPwqtP
93Ws2o/79ftUxrXPDKpifM3x8d00YQlH+sXBOecCFzXuxP1WKDMpgafMzEvj
t9Nk4LDCn1k1qH9F4mdkCU2MP/WsDYIjdF2PbtbA97Ddcl/CgzOLPtaq0aR9
9uw9VXBxnF6ctSpN7A3V7URqGZTC6fjuo8o0uVrjFxUI95qc3cdZRhNGk7xA
QB2DerCt7pSFMPJpJDuUAYuEZHgcFaDJ+oWGyz/AnfqKIof5kI+Wrjr89Qxq
/vlbkzpTbFLbXuriB495eFAxf9hkose+61oDgxKLSJY1a2KT4pnjTjHwQ/71
Cwvr2CRA/t54PmxnNyqq8JlNJOyzpKZggQkfge6PbLKqT8DwaiODyv29sGxR
DpuY/E7MudSE82zflt4axSaJ46wQ5xb0U0chWfZhNhEuf//+AfwqW1T/jQWb
OIZFD7+B07WXU35mbKK63sRqDC7ea2e2xoBNsu1z5Pxa8T0b5oUXaLPJx9qA
1NA2vK+1YNteGTZRjLHpyYSj9AQ+X1/IJoGO2pKtsLLdkHmFJJvsE/jtvuQL
g8o/2Z7iLsomTVvMCQMeHh8fPj7NIr1M+eqsdgZl1OxUK9LLInquU9OtsHvZ
RKj8NxZJ3tayfgKeecdG0qCLRc5+vf2Q+sqg0kYKLCvaWKQm+cRHW1hLuIy5
ooVF1C6Rf/7wxw2fi+40ssiQxN/D5fAr73/HQ2pYxLyrMogNS9v8PreumkWy
XzIKRTsYVEpwmFFHBYtc1bOSN4EL5LLuXPjIInxeRew2eDBKa+JKAYvY6z9a
Mgn/sOlkvMpjkbKFrkaynZgPRh7LDeWyiFLvPh9duNw/I9noLYvcSVdMPw6n
XdTyzs9mEa73jB/X4SiL3jzzLBbZv69dKhHuEDm4aWEmi0j23fOg4fjNPU4t
6SzilnnqhVgXg7qlWzO7+TWLtPht71CFf39Q7e9LY5HNxkvETeHmoASxufDj
pSO6rnCcsfEhg1QWmWLXuITDg1a9nx6lsMixnORnObCfZJzJ9CsWKb7h3/wF
FvQy/uUGrzA7KjQFf3hw1HcGPCMj5JFsN4MKfqr6Iv4li/TM+7hWFz6T8kDc
Ai5yGS+whe85qSfKwrH160z84Xbvg45jL1jkmrrd92fw3e0/zX/BRx9EuH2E
m3ydbPtgnb+Vgn1whbpM4CQsY8r7SLiHQTnJ1ZTL43njrzXWroG5oZJLreE2
idMFhvD+fwr+L+C3F6KNz8F7r4z9E8H7RtbVfQuGfRnaXt7wJTUBt9ewCa+Z
uAC+3yJEW7ABfst0So2FtQbORQ3Bn3rdrA1xXlImCWsWfGNQd1pXyoriPIfS
WvI3wpsEJ/50wg1zRY2t4PzxRy4NiEe6s+63K/A1s606E4hXSK2r6xM4Pq8/
VfMNizivTxYogHfM9Pf1Q3z33++I7IIVvd7Z9yD+c4x356/4zqDCc7q2NiJf
uKlX9u+EvxdOxzq8Y5Fq8dQee5jHbeWASD7yqWahQDJc2vtzd0ARiwjuZxmp
/sA8qWFDtMtZ5GfK0h5jmDPkeH8f8vnDHNOLLrCexa8356tYxP9zbkQmnD+b
495VyyK8Rne7t/QyKOfcY9Inv7BI16sil6Nw/+1daqyvLFIoNszvDR8LeKnh
gfvnVX1UqQSWtA6UKvzBImOGqi57fjIomwQNS24/i7S+tOM/A4uuceb++Iv7
JRoZfge+GrXo/q9h5HMV77vP8MDzD/Gikyzy16Cez/wXzrtxw50qITah9d3C
bPvw/frfNrXKs8mmtDk/feCe+qNfZRTZ5IZUklYcXKA66nZCmU1ku7+0dMIn
x31c+dRQ/9x0Fx9h4X5bMf85EzbJihWJPcjG/L1kuDDOik18h54mGXBwH72S
GoqC2eSz1ZaxM/DH4xlPFoeyiUxh497b8NvB7M0u4WzyJlCQLoePF91YtDia
TX7JnlXZzUX+FhV57n7OJoZ7N6Xr/mZQz9s45jfes8nCmM/vNP8wqLAQXieh
ATbhTXuVZgHHLJo2YA+yCav4LsMDbujTXfNhhE3yevWD8+HYq0MP7CfZxFal
7PiuAQa1QGJrspEgTV7kFQqb/8X8dXKAcVCGJg8/x0y7w8+mXqS/WEoTr26v
wUj4j/2nuWPoT8b8Oh1fYe765SOeKzF/GuSknRjEPNfg3Kasgv2jPc3CdYhB
bfSdLFLeSpPV3GDDcPiuX72SCEUTCZ7z23Jghz1CeT90afJjhcqaSTh3+/aH
/ui3gWeSp/2H0U/aNaMvGNDExfPWIAPOEcmeXrIP+9s9h74yWLmuXr3ECPN0
ukK9yAjiPeN57JgJ5oGxp4xQ+END+nxZS8yjIr6PMuGlPEKzIq3QX5faBLfA
p+nZvKKHaXJ5m6yHzCiDmmc3tv8b5omlgY8ME2DLlBt/9mIecZAOHUz/h/mp
9ajWPMwzBaotzHrYhzgky2HekdKTOfQXXinZnKt8niYlbglFamPY9+460moX
8LyGjKA0OO4a+9QqzE+u7FHdWnhixfvPyzBfVc7QGeqHR6a+z5DC/OWxvvSQ
6jjiXSmV/vcyTRqDGhVT4L/Lsk5dwXy3hiHdXg2Px5g6mGD+8807co8LD9MH
RuWvYb+kfwytncC8IB386p03Te7sGS5+AS+r7Y57g3nz27HNbpWwoGuWpQPm
0c2XvFbT8JstA/ZSmFd/MmYFK08yKFeXkON2mG+38S04kgz3jVnM+4j5OHLx
IfFP8PDNDQmmmJ/71WJK+uDB22f2fYGf2KxSWj2F9yd9NV8wbw9eOvNVDx7Z
tS7KDPP63uCUYAd4KtBKrhYezdcaYcKOqc5bCzHvGzVdSf4Ix+ts/rkO+wKD
U3DkJ3xNuHh1FDzBxzdXYJpBuSVp0VOwqYzeewXY71qZ5NH/9w31O+674H6b
uFtZMI9+jZI9nKH1W3U29pmDtpId12Hp6M5+C/jVZYv7z+BbwXEpsTD//cc7
SmEeSXvTHvhwYtfId9jpx7Hi//er1wXyz/l4mFSycnmPCSzU7HBUHr6xpi3K
Bz7GfTF3B7yEv6EmCc7k//P+OHzhxMTpClh0icYlP1jLKMaoF7bbcFk5Hk5v
nnNiDM7Vz+sohofoxPsC2PckjvOG9MD8S6tzReFTHjt3zuBlUlvt6XIRuPD+
rVE5uGrc4ykfvCCp6rkuLCE3oTyE550tnGttA6/9N2nQAb9vPiDhA7tYL6YL
4MW/I0tj////RRO/I+H+iI2tBfCpsdiNTv//+23NdAccNVLPuwmOoF15pmBr
6y71yf/3yzBJySUzmFRX5LKsHJii0ldtgY+rNF9zgCVZxtqHYNFFA31C8K8H
/fs8YF6lDpd4xOedzj3bSPhOXcMCDTj451q3bPjzDo2afMTX7n7lrWa4Qed6
OAWL/BBKmz+TSTko1uisQb50BSW+3wAvNoiWCEM+ZWzc3WIKr66f2TOC/Dt8
x3/6PsxzWeBoPPJTVXPFvDQ4oe0TLwf5zNdVpFAD5593DlKBX6hPG4rxMalF
PY9MIpH/3l+f2KyFvd4/9y3G/TAL2OJqALP4s+98w/2ZaLv8OBAWZnXKieJ+
1fgvTE2CPy/iYc7HPpegklVSBm98rTA2H/ucge8gaxY/k8o1YvJM4f4+Xn1u
kx+8UkvT7Az2sfP1ooZP4autg6JquP87PF8cK4K7h+cE9KNe0DV9AdPwuq+V
6WauiL/HzUdLZ+H3/ZyG211oEiq/KkUHDvSRDTJF/dlyya7pCjzh9cFtNeqV
+PKZrCg4UcGX3MI+9r0ibjIHHnf58aP7DOqFbKf8KFwT6PTOywH7ywdLl4sC
TEooeETJCftX6vnRGw/g4zseeERZY79aFB71Gj6bcOp28RHUp7MNRf1wPN/1
bzNRb6/ONxJ3EmRS0myVuSaozzJ2O16eEEI+xds6Gm/D771VPBEAb5csLFmE
/jApLrokCa67sf9kjw5NOvIa79Bw2cXFT05sokncgpOOLsJM6lHTpJ4A9imF
ilvKPrMRn61rEhlLaBImd/bbUzgy7vsVx8U0Ebhk8ug9vN2Z1aIljfyTXzxb
UIRJbYp9wt8tiXrh9YIVBKc1Cvy4JUKTRY3BT1Nhrf75JTexf91WdrWqgw8k
HvkYjH7p2KLzab4okzoStIQ/H/vXOrXPSY/hKwv++Ueiv8beTLfJhx/2NpVx
xtlEvDNcugs+MOHgcH6MTQZuH7u1QoxJvY50V3qM/mzbs0N3J5xs+jZ05zCb
1G9c/c8erlUo3jaBfp7x449DMtx85ItcCPq9/JamZZXwzg8Or5yx3z0MedvC
gaXpAg3rfjaZ1RcdPGcOk9ox2+qH1W82cSN+euvhDOVYlh2XTXofnuQxhVfa
/7ngyWGTg7R+9kVYWTHpeQLNJhsjJRWz4Z8aVd9k2djvfo92tsI1dlJbL7LY
RHrX1/BxeJvjnanmPuxjj4uMlogzqU7bJhN9eGzgmQCBL1vmOVT/YpMzewIL
jsF3ktXO2sDtMWfdfWHffeb3+WCDYZN1CXCUhidP9k/MKwZaP0thtUQt1hVY
JX5xzE845tVBz/1w9L9pc6G5TErPZ+SXBjxn/3cxZVhkhvfhNbA3o+yDATxJ
UgQ2wP0TL7zOwpazYhYZwjam9zWD4Qb3ilJ3uC7JlZsGF28Kdv0Bb+OxYtTD
/NHfc93xfssOx8v8hZ3m99TPwfdNZdEhEhJMqqPhRHEm3D5PU0gNNlr3fp8j
zuftuWvXjOHbOxopVZxfREXZ0Hm44d7gsRk4X7dVEo7B8KlTPJd6YPXOBIvP
sIpCT2oF4iOhza3mwk87J+0bEL/+MK2dYvOYVNvl4C0sxPfFvk/rDWH9rwoX
t/xFPuT/Fq6Ac3aPX3AdZZMZizb5sGDmU+Vr3f/YpMvVd0RIkklp3oqYZ4l8
fLx2/nc9OIBESJyeYpP5TzbnfYAnQxtUxfjRr0f91HvhJ3O3bq+dRZM6s6ok
/vlMyj37kl008j9I5FjYDthRhrXUHPdl1tXr54r/t7Mc3wXcp+/N1T+6YRuz
2vsRUjQpVl94mFeKSZlFhNp9XIh5kp2sR8Gx32aEbcF9HbGqkcuHK6wf77+q
gPu5aXFDzgImNaLdriG8mSYVI6kb06QRn6G7/KW2NNnFQ5nWw55PW7WcTqD+
CX52GoIPy4c0zEO9ypTmPN20COd/Us/nEOpbrPZq0WJYwq5vvBr10+1aXHfd
Yib1TTwnawH6x58A1YlB+Kqw7qe76D+OwQVSC2SY1JazvD+n0O9s4r7qH4LX
PiWWtQ9Rv0ukM7/BxdHcYtUYmiwXCAkcXMKkZJzlnOpTMP/MkXsmtZRJBZ/t
ccxPo8nChakFG2Gxxrc+T9PR/1dXD16FGxN8Bc2zMP/sFbbml2VSdryyVmfy
aXLBNPLyKpha5l8nW0gTziHF0D2wwfW9j6qKaNLjuKv8LuysFK49v5QmVUG+
6lLLkN/hOwMOVNBEL3zuvo3w6/oSk8ZKnH9MrIMV/G+2RfK+appkp+Y/iYYt
EuRlVGpp8rRuTGCVHOpJvwsV0USTS1Iu7VrLmdTJy38jxLvQj9IOH7SEQ0yy
9sh1Yx422FXnAQdoN3St6aGJha90WR7sfUpspcZ3mmzkFqRvX8GkWu8l54v8
Qr+9laRyAr6ZWW41AivKP0i6Abct03j2tQ/nY2UfUw5nDFgmP2EjH0pFbhvJ
o35HviVcLk24x4b5nWFn14cLcn7TpHe80zsEbnprc9q7nyZN69PdGuHNJg6/
+AYQ/yeWtodWMinBXe/mTw4i3q6MTScVmNRfqcflDmOYh8SDM27Cg/foe8Lj
NLF/fnldMtz4PWggCTbvNljJgV2UxKu6J2iiYfhX3GUV+s9ATJTWNO6HPPXL
S5FJKYrPr7w1k0NcGlrDwpSYVOqTdYMeszmk5aJizRt4tKrKpw/eOt9dqBGO
2OOkc1CEQwTNJa/OU8b8cU3DVFWUQ6Kb99kEw3xRX262inHIp7YS5cA1TKpl
tWasiASHLO9+WeipwqTWzO6+rrGQQ2o5Piw7NeTzt186F1ZwSMNmqbIbsIv0
kZJquCkg+Vki/M584aiSPIe0ydUfo+H1L/df6IF7Dsg3u6gzKXrznnxDBQ4Z
yPtQ4ruBSXloj8RJreYQiaDZT2I1mZSclHu/mwqHmKo8NGrfjN9vPx/stZFD
Nn7qMyzZhnmuTeW4+B4O2XY36YipPv4+/a2FvwWHRP0W9c81ZVK6/tEPP53g
kAMv07c/OMSklt8fqaTPc8iGkPeSknZMKoyo8sy4yiFudVLX+ByZVPv1u1kp
1zlk1mtRnioXxC8sVy8niEPeZp8L2XqVST0r3k+tjsD3L5qXL+uPfucWdjwz
lkNEEuTGk+4wqcchlwRLkzgkrLJhn8hDJqVzYLOL12sO8dtfrt3xGPkv43XG
9y2HhI4rbrZ8xqT2Oh4QW1CCeMz4VLv9JfqZe6XxjAqcP3OO96w3TMp1yS+7
13UcknqxkFzIw+/tqH443MYh/x6/jjAsRb/PifR/3MMh9vScmXVVTOpEZ8Hd
JhaHaIa/mvWhkUlJSWnWuQ1wiFn3n2UhX5nUOU1P8+//OCTcJNZAoBfxW/ml
/gcvl+jIBs+lOciP6TpRUyEuEZjH/nl5GPVkj84p07lcIstgNXROMaldh92H
lktzSVSo8qE3sxIpL3XjM7bLuGRTcvOA+pxEar/xavENilyivbh0xfIFidTy
AsOb7uu4mF8Onvm1NJES6D01N0iTS3iOm70/uCqRysuOTdDYyiUtQyGZmusS
qZuG9V3GO7lk7Y3ML5bwdaWUIGfYV6qNxxNuT/ytfR9W1pLTL4Hd3kWH1sBe
l1I6jVQTqTnxmVuNdnHJyvEKwVPrE6nFN1tcDXZzyQUe/kOP1BMpJlf1/K49
XPIxWNE7H1YyzRK2h2XkDJ51w56zExKuw6W6D36v2pBIOeSlNr2HF/rJ+WfA
f8Qi1bfv5ZJ8/q0vqzQSqYIXGTVEn0vmhdnU9cPSVxNtrGEHhesj8zQTKevM
mQNe8NzdlbpWsGtav3g+bHfTqqkXrt3H3L3FgEtyFnqNC2klUmSipf4QLJYU
t2wtHPbkgvUVOLv812kXOHfi68W3sKiVSHAYPNKWMtUK27LWvcmBaU5fwD84
08O0rR3+tPOOuLQhl8ye7T49/b8HwiI2wv8Br3WkAw==
       "]]}, {
      Hue[0.9060679774997897, 0.6, 0.6], 
      LineBox[CompressedData["
1:eJwV2Xk4FV0cB3BElkjWVLJEUSqhRVJnqESRQiUiS/WqJBGKQigVlZClkjb3
IopCqexaqOzZQnJnboXsW4rer394Po97Z86c33bmoex03OIgHw8PjxJ+TP0e
HrrIw5PMomIk3jM6egxRVzzmogi3KFn7z4P3meys2gAXj+bzT4NLE+bcPQsL
D5GW6rUMiTZKJX/g6Hd78t3glXEf/EdSWNTWh8mWSboM8Vg3c6L7EYsqutJb
JbSGIb3non43PWFR5YbJUQU6DCm0zhP4Cwf+TNF9AEdofpdQyGBRHms2fL8A
r2jVW+IEK4ulOW+HPXQ7bDrh+jzvrlZthoz0rHg9nsmidlyrUfqnxZBJ2wr/
eVksavJ8qYTFCoZUaI9dXg+f2lixThdOFF4Qux/evcr2ogJMPfd68gDe1GIe
3qXJkCDJ+e0a2SxK/P1f/VB4etlRA/0cFtUj/aTvzXKG1CfeMLOHl28vjXkM
s70L9gbCjYyxWyxsrCrlUQqPSkZlH4YvB7y8b/qcRUn5vS2cBYutFua3e8Gi
fB3/JB1exhBTybiKM/DDk2Jqe+DLPYvib8PG3K/tm+Dp7E3LW2D7pCFeZXhy
dqC1bS7We5vnUstShugPzVTxgyeWpPF/hH2rEn7dhE1PX8h/BY9cfBXUDB9L
Vum9Bff8Hknb+5JF8ZqdstoPL60/73MafhovVbMDPvJU2jAeNr5/LdIQ5h7R
bmiEH42dbVsEt305xmv9ikUdOnri6YAGQ+Rf/P3gA8vOtdjDhW2iw2Ji4U0F
WRub4XrTFI0GeM+RbcPFcEUevWv3axY1vKLgQywsetNTyRsuP/T09RV4qzdf
1w34s+nz38HwRYvr2dmwYpR9sC/8drlS4Oep75sfkfKA+Wc82ToMJ4Q81jgC
G35fLyOTx6Lm5T6+5gTnJ9qmWsHLSwTXWMF//TpPnoQv7T9xygzWsz5NouHt
IS94t8A5s2LramGbsd/f9eCh7oWJg/D67n+Gq2DtsqzDUvksSiVt/Jsm/Phc
zaQFfMS57ftCuNvOscwD1gz+ZKoML9Hri4qET+bm9cvDLrIB9k/hmq0Zn+Vg
1oDY4hrY53XSqDRMV9we7IdLqhJ2S8ALHmnkSxSwqMzg2H4x+I6zieVOeFFh
aIMg3EIa55+AFxqcUhKA58r/9yMCVjK2v8cHW48NP82AH+eu3MsDx9SFnK2C
qYRho8klDKnLkDLug/vkbh7+C0teuS85q5BFOR+bWzgO7zis1aoJ+/cfM/kN
X91cyDaHhWeG8Y/BJlkpNW7w1Tu2wyMwv0rUxBX4nIuI9JQLr59RT4e1Kfa2
UdiP55DlR7i49VLK1PVWHzf374I1QlU0pu4/0KqbIlKEfrHpX/nU+lxezfhn
DP8TuGfOj/WrLBle7AJXcU8unnr+trg2q1DYJpg1QwTe5Z2Z+gbWj9GoFYdn
MTc/0/DHRv90SfijZQgPfzGLqrbV9JWZyhetPbsNYb/fkXVz4YlE6pwj/DNq
9Z758IuZS9IC4cy9cjmK8MmzUg2J8H33R11T8dXs/stbAMt/cxhQgTttuEvb
4C1h7NKpfGCVVe6ZgDfLd+9Tgx11c4PkSxCfafHZ6lP1w76fvg5+e1C2bDHc
IBPeaAN/kim/vgSODPGa5gvPPz9bRAPePmi/PB4OfLl/6ZSFnYz3voAXG/EO
Tn2+tEorpAEeWGVtPeVAMu/JCJwsnL976vrrHvM3y5Riv9mXfkytZ0S+h38V
fHy7uNAiODOsQdMKPnjl7pOp53EdL7TxhGt1wpuUYPXDqecjYdUce8mpv3Ma
ojIy4Vivsg7Vqfw0OvulCs7TspKaup5N9qHpfbD4Gt8bU5ZR3aEl/oZFeUk+
s5lyVeTafcthvQseVlP7FcarEmoGRweon5y6vpG76FNXOE3U4NHU/fm+DreE
wUaWql1T9ZRn9lXwEfw7dPXCqXo69fq9djlcyzRsnYr3So2ndj/hT6wDZjPg
3vhbF4Xeov7/rlSYBqcKnX+mBg8JJzyeyseDPm5tRrBqa3dvD6zE3SN8CFY4
4l7bAbdYGaw8D/NeOL71MxxbsmT/Q7i5Y5nRW9hCW/pyCSwt2vU8G555byKr
Aw527oh4AIf4V4kov2NRXUbW631h8it3FQVfztIddILHbR847IcVJGd/NoGz
y8PD/OG3zXPqlsPua71zEmBnW+dvErBG8v5vr+GJZxI9A4vRr2VNRFvgn00b
uqphu6F5TnPfsyjBRBe/S3CW+DYtffiQX56fPSyq4ctjD6fWJr/WgQ8YpVQG
wDLPtmwXgV87Nt65B9eILBtoVWeI9FlBtxK4KPnwxcewa9zq9QycXTCj3w+W
r4z+ol6G9cx7nCsKn+wsSd0Ki1QWNlWqof4EBk+7wpKx9qbXYD/9nXIZ8J8J
qxQ+uGZP4PdquOB3rmXOIvRPzyc5g/CT1JKqg3BzitiuNeXor11M8fOF6Mdv
9FX3wjXLpMb2wpfbjw76wsvixANHVRmydnb59XyY1ZwnpApHaP92aIcvnkso
e6rCkB9m6iv4PuB+iil2+nBcyIWKzXD+2sYAsoAhfYnZCf/BCYW7Kl4oY76/
ol0vwUfSstyXwmP9hjM+wdoqStp8SgzZs//fFquPOC/8DYk9MB/zwXf5bG/4
63/edunymOcxdtxY2HtLhFfvPMybj69CvsAn6lPl989FvvzotJyAP+YudQ2f
w5BD0+aqKH7C+UC05epTOYbI6p0qcoKbxBdX/ZBliNsudkQIvHL7zowxGcxH
9/r9LLi6JJ/LA3uxV07+hHUvyH/5LYl+L92vd6ICz7u+MuzyTMz/FUoiUfBH
b+F3e8WQn9vMm7LgVWtNDimJMkQnKN1nDC4V1rSNEkY/6j2cFVDJouLFXAZE
+dHvROKD78HDrjuVovnQTxe9tyiBNWVdP0rwop/vW9Q/vYpFnT6dOqtvgiY7
yzuWXYU9t9eq/h2hiWyX96t0eGlkr67RME1aZsww+QSvLovKCx2kySEznQOi
1aj3uhPy/b00OVMVfPMyfH/ir7XdD5oY9M9WT4UdvTbKOXNpMl0yLbsMLm7v
2OVA0+S6ZV2VUA36EbNvj0E7TVj1qoKhcJvWsoqEBpq4jr6IZsFuFdFN+z/T
REvObMFb2DDuSsCcWpq83uu1XqCWRYWbhKV7VtCkuuWNZzBsFX9QobSUJn87
DrUH1OH8YOKrbfeEJsXT/hxLhMWSJk1D0mgSqnrtTz5cvHmL08MUmkgeei47
Cb95lrGu6gFN1H4Kmp35zKI28vB+/RJLE4ve5NxT9ajXAyvduv1pkvynM/JE
I4uy7T47WGhCE5Gy0tIoWHP15wABI6w/5s5INjziuqXIxJAmK7QsbMZhrRBp
bo0eTV4cylUObmJRlY5lSgMaNHlXHZoR3Yz8tj+8OnsmTdQTHTty4IIlY81K
M2hy2XWddBO8luftj+uCNNku2Osz/wvOc/KJked5aFKvv5uw4Ko7owteD3AI
l61a8byFRfFbTA941Mghxl6T/5rgg3+/Jkd95pBUw0atv3Bu5QPNCzUc4tYa
doNqZVEfHEp8wj5yyLDk4L4y+KL72w8KRRyyu/3j1S641YLz0jGfQ16kswrF
2rBfc66QzFcccsbYRtUCth54Oc8nh0P4/Yu6mmFTY+PzSWkccmjbrfkTsKLI
sstWqRzyXs7LXPErixr3eLJeMplDwp+pP3OGZ2wuzX75gEN6AvmY83BdSF9o
1j0O2bG9RTYZPt3DmH1M5BDpn9d8u2FeqfTTS25ziHfO4bSZ7Sxq0NB/xP0m
hzQGb2xbAVeLdsq/i+OQ2wqjBl7wjfdVMfdvcMhkV5VnLLz697Rp6tEc4pCb
mpQLnw3fujUvkkNUrOyFJ+FLeb53ZkdwCF9W5C3Fb3jfqQvY33GVQzqk3i0z
gMM0km6/vsIhRZ5/Cpzg3dM9nFnhHHK3VtMiBF70qLgoMYxDAnQO0Elw/siH
N8mXOcQ+Ks77Hby/U8G/6BKHyFvy3hLpQP//8G7Lgosc8ufpqmVLYdndS08d
CeWQZskjBWbwf/WTN4svcMhLjzs7j8PLVGoKl8DxNTWcCDjLJ3X8/nkOOaUt
6P0UduTjtdGArSPXCdXBwj7v+kpCOGTNwPGbw7BJ0tFqV1jW4uHS2RzMR+kv
MxfBw5mN+brwhgcXXvcGc0idhNhOGzjwmI9vPfzshAHHD46baePzE46s9vJK
gN3rG5+L4vsntFIFC+BqTeUZFLzjelt8O7xaar5BMLyiX3IpH43zdf2JJfWw
+M4t+Spw6KR/nC7W25Pht2Mz/FHSzi4VrpiV0XEIHjjRsk0Dz5vuTp+8CNuq
hax5BYdXyQmmwieLIob2Yr+OrjCL/wDTaoN7BLGfWyPOafyC406YrymBhXZ0
mq9gkA/DkyUHEY/vTxQ6dsL1JeJKpojXW3HLk56wLxW1i0I8QypfxeXAd/q/
Z+5E/J01+5Y0wvG/28PdrnGI4TXVvN8wqyM+JQ75wmt+5Zs+F/XV/HW2dBSH
tD8u8rSH5R82LDiIfCucOSIQCLepOXUUIx/9K+yXlMD5rbN+P0C+jput8DT5
zqLeldbGiCHfm9IPCByFd74gJQ13UX9i8bHhcESVz7H0+8j/T7yvK+Hq/4pV
fFkcMmhay7/7B97vHs4Iuv6YQ7q3ecc4/WRR6SfeiZ0p5JC1meLfz8Eyiay4
rGIOuSCbsuYefPbH/OODpRyi+O1L41dYQMdcNbiMQyy8DebZdSL/JPmf0+gX
z++K3t3TxaIkZqRkunI5JGj4forpLxa17pbQxfXiNKm00R8/CuvnxSZ9lqCJ
fOHnrWFwTMGu4WPSNMm+LNRdBnNe3XC5M4cmPxTdlm/pQb2PZun+VqGJ2da1
zwx6WZRLTY6aqi5N5BIrX6/uR//6XlOQYkcT3szHmdbwXFnpebMdaNJZfIXl
C6/Zw7cw0IkmedxtEfnw+vSjzZv+o4nT8vfORgMsyi7c6fMNd5qk5RWK7B7E
+1lfxreuczS5UZn4zwe+9uG25EgwTfy/+Q/FwzY+Yd/Gz2M+Cqxva4VLOEJu
Q5doMmKam3lwCP3edVU1+zpNqJZMa69hxPe60nrpuzRZ3BNhFgvzbYzJKb+H
+cLjbpgL75h/SukM5gujsnzpBJzsF9RcyUJ/P5r6L2QE9TyhcmZdOk3qxu+z
okcxf3ZIX5HJxfOIBt3Kgdt1dnn5vcS8VHCMaITVV2tWtLyiyWlDRV/5MRbl
YKM4cT2fJgqXb5k9hN+HVwe9K6GJy5zooWe/ke+OT365fKJJwYpGdi2cWG/2
wwfzU9ZY3nYQbtq78nxwJU1KvB8WaY+zqAW/H32IqMb16rKuZsKJ9zlXYzCP
vbrGDKphX5EHTHQ9TT7yrR/ug9efeMYXgfntq/XGdsUfxEs8wfdME00+X/2s
/gRema7/aVkrTZay5rRUwNoBOsUSbTQJyrO71gNn7ZOwHIBXdDPDy/7iPG6/
QScF54Nwk5HiNNi3ycb6F4cmhvyz7VInWNTLpS5h5T9pEj/PdlY5HDrrbIFX
J036tBNLfsJhrYp687tokuCotmTxJOrHivXLoZsmY/lrRtnwi7ttc5t7aGJe
75f6Dta9do3PA+cZ1q8Cu+/w4GG1EoE+mljKG5cu+od6/BrqrtRPk8enra8n
wQLsREYR5yGB67c3vYEbp1OTUfC+5PZRGk49ekx72hBNhBtc7FV52FSH5d2r
NbBDT5rEJnje/Q2h2jhf5Qj0lzrDrmm39a/AB1ae1ngAzxRq8NfGeezVtry2
Ynh4yLrlDCzpzBvZAZuJfY8tgg/7bt7Mx8umHIda4nlGabzfXxpThovHbpav
hWenfHpkAEu/vCB5DHYrlNjvCAdVz7C5CZc27JI8B0+cuX2pCJ7XG//m7tTn
zZ5e6oD74nSbCmDTrV8//J36vGFDdxvssy2qd9YYTeK6vXgm4WfPX7cpjE2d
f6Sl5/OxqR1mlsGLYIp6pqYPj0n7CiyEpTt3rrOFZ2tGB8+Ff0T1bfeFv/Zf
OysMv15/zSkeXj/8gunH/SK+L/N+AS8vOPm4Fj5w/eOlBrg3YmP5Y1h33dGE
EdhKq0gjGBZlhDNlprGpi1lJb3bA7VeTS1fCz6m3l2fDWbpbGi3hyUoZtwbs
38UOpssDNuhNcoqA94WH/LsOj51m2xrCK1arSGXCPRZHTX8hPvztRYuq4Oo5
zurX4cZLDnq9sEerMmcZnKbzz2wmP5uqKd/nXoJ4B7YmOC6D6caukp2wVai+
lyn81L28uhH58rf59O3L8OIRuV9VAzSpCpHLSIHzU1dzDOCHy5+XvIc7HvMc
fIT8Mw0a6pwuwKZk6uPa/kN+Ki2NmlwIR7UbF75E/g591pLcDPOoHuGdDt9e
fHxtMNx0MtDn/C+auNeKmd2HN61IiM1FPWw6m+ZQBO844/eLQb3IqW072Q7/
mpA7LgJ3V/0M/QebnbsjqYb6KvS9eEthOpvy7TdYqor6i1ZVe7Ie1pu+6a0E
zv/6pw7U+8HbBFt16hmazFowrfMmvKHDbFc6zv/0h3sTubD+S5MtZ1HP4Ypf
Vcfgp2sG1gp9w/vG272eJwXZlFPzkUcVX2iS4T52IQp+q5d9z72ZJiFzY28+
hbue6CWJor8sdasr6oPNX9V56qAfnZExn3VMiE2FsZZep6owfw5sSj8ozKYy
7QwH/NAPw1+qHwyFdwsJKqcX0WRiltj8FNg3oN+ouYAmbXmfw7vhF0XOO5Ve
0+Te7P9cPUXYlMqfegmFLJos+nBJ49wMNsXrGf6Tg34eo+zGuQ8X8qf7fEW/
FzxlcasUVvn9aqwlEfmtOm+GkCibuuF10/nrLZqk+qd1XoWfTtY+EY2miaZ2
ZcptMdxfvEzKHvPm7sVnjvmwfaTrAxbm0ayvsXPa4VthPzhCQTQZCHO4pDKT
TW2V6dDm4n0ki+l3SYVLzDUXiZymiap+vdJHOGDLySOpPphvkS8bf8FDOvke
Vt408SbBxlribOrdsE3OW0/UT7y0+gs4oynAYslxvN/0jn1tmrL0PF5FN5rM
MWqN/QP7hwRtUDxGk/GBJEEyi01pxheabDxKk6Mmlwsc4FyjW5f+O4L4Jbr5
BMGNh6z04w5jfpmu+f4GNuupaVN0ocnyB/MSv0/9XW6agQ/m853f/3YLS7Cp
hur+8S+HaCK+g56pAdtkKBhthwNZ79+awu3ZK/ZVHEQ/+pvm7wbHV/7x3gc7
Wl5fHQELH75QNXaAJjUpXj2Z8HOXxNYPsCGPDasWfnNivPI1rLTvgfwgPNIs
FP0KnnzeHSkpyaau7Tt14y3cIrVaWBt2Ljyf1Qq/PB4QsBN+3VJZzYP7xX14
P+wOBzftqdCEvdUkXSNggyPnwo7AVsG2HU/geROSXRmwzteH1pXw3bZVlXx4
Hsl1PRU9sK+F91wHuC9mzeaZUmxq9G7Jk/dwxUDgq2Xw4TnuHvrYn7Tt5Vpm
sJKwltEr+HKqVLIrrMxWEN+M/XSZbqcQDjsPPctsglXze0U+wMVBj2erIB58
c9ee64TtRoeTGuB2r6BRYWk29akv+UEM4nd7mQxtDBf7G4fqIL6+l+xtXOAr
TQvWSSD+1gy7KhQ+arFxfAyWSdDLewtzNuzU4+I8NTQWrMOFYyrUw7tOYP+t
PqUIyLAp3b1zwsY9aHJV1CFmE5xJ5Fev8sJ8cEkRPQB3bf+X7YB83Fo6EBQM
x3o4Rd5Hvk4/c/54MbxYe1TJ0Rf9oqGC+Qbzz9dP/OSH93kduX28smxK63rd
DcOzOK91pRpT8Dfx4O+bAmkyalOlnA9HLE3keXgB9bd2Xl3ubOR7SJZuFOrt
w2iGbuYcNjVeFJa56hlNjHgoy1o4PzkvbWs2+ptQ5bFhOC28z8fhOebznF/3
185lUyaXhDKv4Lx1d91isWK4tNZ+8gf6iXfAvW8189jU7e63nifraNIfuuLv
EBykuSjzLPqRa0SB7Gx5NiXyQsM5pBH5eq91my08tJt/46UW9POSOTkc+JFu
euYR9McFgpGXh+azqSVPJ/hS0f8TxJWTZBXY1JcjQc+sMD/k5DIKdOHTjFXa
OOaN2OKKoTPwO59prrq/cb7ZKrJfQBH7l8Wt8/1HEw/L+NNqMGfs9ul/PAz5
ZasebQKfHawxD+BjSIerUdkVOMGsIMRdgCGfrgbpyCqh/u88eiU3gyHGsRLb
deE4m3ux3qIMKU6862IDb3uUH14pxpAXGfkJd2C7bYtzPGYx5H7NuKCaMpti
3ao95ynDkFOyni1rFqA/x63LMlFgiHvmvj174eucT+bbFBniYmpU4wv/qkh8
Y6zEEOugOe/z4LidniFrFjBEt6fg2UYVNiX0WEWLu5Aho29Ew8xVEa9dN0Jj
p/5/5jAicALe6Tb6034ZQ7h/vgZGwg+kCjaoTP1/UOuZ92eYUrMWfKDJkJyE
vU62C9lU1UmJlDBthnh7sdb+twjnix3Hj9NrGOI2KyLrIjxe9mwyRJchhx6d
1kyFGTE9J5W1DNn9zXThL1hPq6Z5rx5DVpkNzvJUY1ObU4UEnugzZEiV+uGv
zqamGe34IWDAEM+6ppiYJah3B7/kIWOGNJ5Ur8qGL7y2n3AyYcgGGR/hz/D6
xh8BVbDQbukzUhpY345+pZStDLnTsN0xAv6gpGC905Qh5c0lGpeXsinDomNl
58wZsuBbeuHZ5WxK4+qpK7d3MaT617nOA9roHxsO8D9xYEidnuz7C/D0bW0d
wo7Yj9DUpGT4ctZitwNws3KtQzesM+vmVTkn5MMu1QZPHTbVl5Yx86wzQwby
3pYErcT3K32UdA8xRPLqjIS7q5FPLQeLzxxliOXyG+YtemxKTcu8a7sX4lX+
06zEkE2VSXTKXD3PEMMrKXaW25D/ksqGxdEMudkrFvLKEv24o6yt6R5DdqU/
2xhly6a2b92WXJfGkJWRpdLSB9iUxT5m6avniE+NbAC/K5v6T3aYb1URQ6Y/
FeP55Il8uFQxylvOkJcvjkduOIP1DSvyL6zF88+VylcMQT879jHO4QtDRB8q
/0kJZ1NHqpTuiNEMiflYt130BvKVNvHc382Q4B1l69puIz/Msw0mBhkS/Udd
b28Sm1o23OOo8Bfx4Cuv3pjOpiS8krxvTuOScrZ44PRsNqUqdH/DFxEuyThZ
SDzyMA9m2n97KMklv28/jTN7w6bkLku5NczhkkPd4tNqPiE/HkR8jlLmktWx
j6e//Yzzlphpcb46l1h961eKbMW8ePntWq4ml8Ra3DUV5LKpAyad+8gaLlmv
GCHR/QvrSexfoLeBSwSlur6fHmFT2Ut86wo2c4kiq7Pu6ySbktLRjJEz45Kb
0Rq22dOTKU22OdNpySVrUxsGdMSTqaQXS7WNbblk3bw3KgtmJ1NfBjfOVnbi
kjCNPUd/KCRTvhE52tUuXMLjbFW6Ry2ZeqmYJynqziWNw5E5qzWTqUNtH4ze
eHPJsgs5X/bCG3UaCQcOkm3mOQtnbDmty+vDJRprlLeVwB0ivurrYf9TT76a
r0im7vidmpYNL/zzQeiwVjIVOOts0sNTXOLBI2B7SyeZErljeDPYl0veRagH
5sOb3kteuAfLK5smfYPFYnxPFMBvDKJ61VYmUxfOSGz5A8sFK4dkwUGy+395
+HFJvsCG9E+rkqlTV64ucjrDJVIxjjV9sJIuPSMQdll0flRqdTLlIVjblwBL
bPloYANfPXkmtwk+cNGmnguLz+Yz2nmWS3Ll/P8Ir0mmIlxV1Y/DM1PuKS2D
xR62C1+BX5T9OOIJR0mqfXwPi9mIRsTA1t6ZaVzYqVMzOxdOlqkP5/fnkhxf
y+YWmJl+w3UBPGOGz79/sLtDzzYK/h8fcRxe
       "]]}, {
      Hue[0.1421359549995791, 0.6, 0.6], 
      LineBox[CompressedData["
1:eJwV2Hk4VV0UB2ANhpLKkBRCCaXBUBFqn4SUoaRSZEhCkUiIZC4NkilRNHIu
iiiJMpMoIe45KRJKMlYqCfH9vn943uce5+5h7bXWJmd/bOehqTw8PFPx4//f
v3+d4+FJo6l16RLSHoEsUZI56iwDWwjqGejB+7eaNWyEF8sE758PVyYvuHUa
HlM5blYUwJI4gwwyBq92Hz8kAK9JeBUwnE5Ta+m+jdf9WXJce/a//ns0tSyN
bzDPlyXfgmP/vntAU1abCxe0ebKkdG8R7zjcKP4z6h4ctbpbeFE2TXkVPhDx
hVU+aC23h7Nqj2qKwcc1Oy17Yc3cdhmj4ywZHlQpHM2hKac03S3P3FkyYVUX
IJmL73v5b3/mUZbUqY1c2ADniay+eBq+OWPxVVs4d0C/zQSmnng9uAunRqYO
D7qyJEREul35MU0F/DMbUIP5alw26eTRlDb3zL3yIywRWjdjunU+TQmnPx2a
6cwSY5GEOn/4NL+s0WcnllwYVEhMgp+Ovv1YBPNx9Fa1wr1rrpd5wBPzg/Za
FdDU2QOv/rU6smTw7/D9fU9pyvGF1mDJIZasYM/4+MKnnoSEJMNHHorpJsJO
/6qtT8Ffjqi9bYbF11b2acBtLUen7H1GU8c7I71zHTDfos+79xTSlK6Ecf2z
gyyZdc1T1huOGXWVugFv857adwU+9ErzaRBctUo2iIElDgpmbYGLb1pl7Cqi
qZl87McWe5ZkBTdO7CymqQsnsk+JwP3WB2qOw8Hy66NGD7Bkudb32Bj4Rm/S
106YHhJa1ggPfy60y4VvHNxqblZCUwv9U3ZYwq2kWdoDNpxi5qgHL5Ry+hoF
a/40e7IKjueGnW6AldP+8U2HI/VLOdtLacqnKWhjjh1LtuamN7rBXQ/XeCXD
05fE/rsEn54V0XoePsXjaF4LF1sPmjnDzs8EJw3LaOrOB9V+JVhX1WKPbjlN
vVqn73HPliX/blLBB2CLipnu1+H82cvvB8H8d5duvQiv7h+fUgKv7/h0/Ags
xbmTqV1BUxXXyieXwsNSg9PXVtLUh+7dbyJsWJJz8e3qXbDUqdRsH9h1tNTS
E97ktFfQHlY6nHEmBhZ2CSk2gz+9jc3OgUMS/aZtgm8YnG5pgOM1Um+uhi0f
O/J9h/dn3w+Vhhti1u9f9ZymbKb3dA1bs+TilCXhJjC3wFa/EzZwn/XQFR7/
uu5BLVxk8pH/Hizpa+twAz5ZWK32Enbd1hR1Bl6j/NC6B/Y71H/eBc4QOPNI
sYqmAnsUUtThQz5ubQbwa5Nt9DxY9ovFDEc454u4xvB+llytWG6bAscrhlQ9
hHeqiV2ogAcTptCR8Ozb/3I74cKXfYwzHBbQMFPuBU1dYmO/zofJQMFaCu5s
mXu/34olo1Z37WzhR8PewSWw+3rvvGS46KDpElvY+pek/cJqmqo/6HYxzJIl
uXOMVHXgi1c+9enCs5T9eGzgKamzo6fAhQeab9yG/dZsiAjYxxKx0/xuFXBH
1HR9Tdg1Yd2GLti4euzO4F7sb31ci1IN4uFu8osd8Ineioxt8L4cdtu4BUtq
eX/6usIHtaz778KndMwksuErPc7Tuvew5H260G6NlzT17Oy6N5q7WaL2XEd+
H9x/Ljm+bBfyQ7vLTz+4KTbJVR9eP/9ldDFcKVdQscEc+U/tr107bOpwacrD
nSz5aqKkMvUVTXl6ONfIwglhZ+v0YRP5DveBHSz5fvNxshPcNdNZyAg2fPbZ
9Ty8Ma0m8852loz80BV8DV9vNT1BTFliYTu5ZVctTfWc12tTNsL59ls13xuW
7Cs32LMN+Sre+stV2Mjk/F3frSzJq30W1gJnnr7wKGMLS8S1TpbZv6aplfPq
wx9uZonbbk5UGNwXs7b/li7yiTtrS8PHTiZqh29iiRdnzUQPLBwevkCbsIQr
9kPLo46mUi61mepoId+pyM6MhbNaxs9+0UR8GG1/lwsn7JG4F67BEvWQTJ8R
eGjASztrDUtivh3ODaynqfl7TRTOr2JJ78zE0NuwbNQxx+4VON8K1Tsr4PGe
qlvayiwZ2q/wg6+Bps4dmuv2XJElZi87V0bCCeZrfy+SxXz6vJ9lwqeX9Cpu
XIT8JCi49TXcNSK8e5cUSxxN1B1mvaGpieXGdw9JsMS/IfTaBfjc7WQdqbks
2fRjvlIGrHDF1+2nENZP5P7jGth1RCSjTJAl0ebcBoFG5Ne5nG2b+ZEfWXn+
cLggrTS25R9DXP/kx9Gw7yzDEy5jDFGVMFlcBS99wX96aIQhhfu8NvA20dTj
b58XfvnJkDetzz1D4UaDoUUOPQwZ73RsD+Si3u2wuq3TyJDyaWNHb8LvnmXt
WlbPkHD5y2PF8Mpkk9TZtQwRcXwiPgFnBeV3VzxniGIPv4k/Q1Oc3a4ebfkM
2fktreAki/OcuNlzMpkhaWO9MR7NNKWucEbilQNDZtZUVsbCrVteiVbbYfzx
N4Yfwx9rjr2o3M8QFdWdlqNw+kG/b8W7GJLvWCAX+o6mavT6dcr0GPLiTXh2
3HuaKlM/McN8KUOUbh7ozIOPPuVk+8ox5IKrttg72MlaX5SWZogp/zcf6RbM
L2LfMWFxhrA6ewgN/2rMnKLDz5AvHPm6J600paKw88yyPi4x9JqYfAeLEpl3
Td1ckqHbrDoOn1BWlTn/mUvcPly8Qn3AeE31H89r45LfIj/318B3bIONSt5w
yZ722sg+uHJh0smaOi7Jz6RLhdrw/MrNg+2vuMTf0FJ+J+xWmdSkWcUl0wPK
+t7DG/bNMY17xiWORtel/8Haid8uzC3gkmoJr+0yHzGfMUn9pDwuiXik9Ogg
fJnv++ZPOVwyGDS16wyc/vGDQ9YDLtlh2iqeBhvSLgsSM7lErOeyXz+8SjAk
62Y6l3jnHb4/ux31362ffsbhkubQzW0qcH51yJKvqVyStOjPJi849dCuluN3
uGSir8HzKuzmRam8ucUldgUZqQXw/cZyHeomlyzZZTNjAu5SEny0I4lLpubG
XJfpoCnzYTvvkWtc0in6YuUm2OGvd0R2IpeUeY6V2MO2Ewem+SZwya2m1TvD
4Oero3rMrnJJoLrD51SY87bWRDueS2xiE7xfwAuk9cjaK1wiZT7l+sxOmpr9
+pKAVSyXjD1cu3IF3G5bzBMewyXvRY6UmMDfdwxUVURzydPjN8yOwcd+2rsK
w4mNjZ+iYKn6tqnuUVxyUo3f+yG82fp60sfLXLI3RluACzfUmBnbwRpDx679
hm3yNywdiuQS8Z0pK+Z/oqnm2XLaV+DfOc3FmrBY1ZY7W2GusJCZJbxmdwMt
BT/y2PTpFJzLu9pgERzzxssrGZ4U/sunCnuoZvCXwGrmcY93wTui2xLb4QdD
K2XOwyo/RFZM/Yz5KxQI18FzzLYUL4FTBgaslmB8g9mndujD7U1bXp+D6+Zm
dzrCWg+mr5uAM90/nzgHr3FY4hSK+UY0SPBnwOFp9moSWA8XFZPEV7BUFTlS
CG+LClYegAetf3ccw3oK7OjdrtKF50sCO6bFcUn3g0WdZnC1kYfoZ7hqjvkJ
T/i9+fF3jdifsPpnCXmwyWj56Rbs58HV35c3w4JMt+Bv7LfuZfmiv7CjQOUl
KcTHlO2XOnS+0NSOkNGmOMRPe1aZpw285l6+SVcyl5TOHuYNgv1W/Fy6GfEW
UGezvAL+oCruoID4HDVR8dzaTVN1VhtnJadxybtMB14XmKtyYtQ1A+dPKPFq
BCxNZ08Y3kf8v55SWA9Pu+a2WD6bS34aN03f85WmeINc39rkc0m/kXe8fQ/u
I0JNRfRLLlmfM6c7GB4Mluroq+WSs+LpGrdhicHptzXquUSmo6X5I5yy9ejc
ziYu2em9SdK6F+tzqcXe/wOXPLk165ZFH95XdvVY4A8uCfl9J914gKasTdki
S0mG1FvqjLrAp2xbf0xbxBCpUmbbRbjwosGeTFmGPL4g0F8Dy3aZf5pEvvsq
47ZqyyDGbzxgd0OFISbb1j/a9A39yu3I24b6DJG4WV+47gf6nxfiVikuDJmS
k5WzF97u8eXiIjeG9JZfov3gCo/ClXHuDCn6YhRVDBdcyN7l4cUQ+1XVBw2G
8P3Kn0W/BzDkflHpzD0/8b7A0ZLLUQy5Un9z0gfuu3Ti0O0YhgR0BPxKhCX6
dWwy4xhixruh7QOsppRsm5vAkGHjgpxDv2jq5RJrrcBbDKFac/Z6/aapKrUP
YkIPGLJsMMrkKpxqdiCgKhv1hcddtwCOtq+O8XvIkK4lq1b8g43HIhsbHyO/
u2RMhg0jv4xcN9IrZAh39A4d9wf16XN+tFQ15jMr5HoeXH/ksnRwDUPoRQei
muHKvd0t7S8Z4qsr4yc1QlOHM/5Ix7xmyKIL101S4F6n8LFC1D/nBXG/Hv2l
qS1xIY4bWxlSotLMaYI7C56UG35giLihlNVPeHB3Zuz2NoZUeKeUqY3SlIdI
4bOd7XgfNzcyB+a1mSa7+TNDvPpGNr2B18twhrS7GFI7dcPv73D/FWk71S8M
8VN9bqUyRlPJ4s6/hb8yhIlklB7AmiEX3dL7GLKCXtBaB1eqfPI/28+QkCLr
y4OwfUbFX9sB1Mv+rt8rx2mqpbpPSeAbQyK2Dpffh5NSjctWDDFEd/p864x/
NBU28WOs7A9DEiWt5r6EOwUiLA6iP/iudrOiB14zN7ma5y9Dkg8oLl82QVNz
79VxV48yZKRY4w8Hrr/m8T1gnCHb2VMZL+AnW+ZPCqL/oAdKrLvhwnL97DjY
XMqwUmGSpr5Oyl9NmGBIhnqEjwFcN0Gui04yhMeoYbkjHK9X0HYezvLdG50K
x9mcKnXiYQlvdJLec9iJd+HKenh/Wvufz7BYdoWX6hSWPCyRvzedh0Od17wd
HAnPeOtsIw9L3m/R+ALbDd4X1oOFO5MCNaei/+T9UXkQXjhvLnUGFpJeezIU
bgy0t6uFHdb4Kt+Fl4xXvBCaxpJnRkVt5XBGqpP1Vljk4JSYTngiIEwgED7s
p68/dQqHmrZwT3YWXBp9fkQO7teV1mmG56e/vrcJ1suSjR2D3UqFbQ/AxemZ
SRLTWVL5drdIMPyhXoJaDUt+S3x+C3YpLnYg8PcEzXcl8MJAi0bD/5/Xfdvf
Bj88odhkBCf0e/FMwJ4PRHb8/7lrvJiY9FQO5WjJr7YRpqhHijqwZXSH/3JY
rNdM2woW8bq1Qwj+Gvvd1A++9VzTpAfjK9xw2T4Rlh63cCiGo7pXeufDQ3+r
wiNgh+ja82/h9x+PpJvDmtouycNwZYf+M1F4VteMnHnTOJSMxMkH/69ne2Ra
5Rr4jQl1MgDO1dzSbA5bvRrnXwbvjwibjIbNPh41cMZ+qaxbIpoDj7uHvh/H
fk9vL1NogA+X7uC5AN9XnzSZPZ1DqVqYv76EeAn6kHxgJVyaOs1qOrwrXMfL
GJ4lf3CLJ+Jt/L1v0gXY2bdiphbisSFMIjsd9ko6VhON+E1Z9aSiGj79enFe
B/pl45BfvXy8WA+pB72HEe9Jy46tD4XV6v4ELcR5cW8SMrkDZy/df0xtmCF6
p+/blcE/sjTUdH8j3yoanWiHY3ZKl2z9xZD+hp7wSfjlodeCW9Fvl/qdu76I
D/vrEksp4jzGySs+2AC/v6Wj/vs7Q3ROOrCn4CVquRq+gwyZu3ha7zX4uZP1
9dU4359f3f5XAItVVHq3IR9EyHyUH4GTx3rXK6B/b63a53mCn0PJzg47Zf+J
IdnuI2djYd+HixU6OhgStvDqtYewRuz+K/uQn1a4ccu+w1FeNw9rIp/5z9s+
96gAhxoxUg57yKL+OOhlHprBoWboJx4tQj6NeKp0KBwelRQ7UlnFkH9zhaTT
4eF1Z1a9qGRIWxET0Q9rJKmEPCllyO35Tq6eMzFeRptvGu4DCq/OKwcLcqjQ
vx+C7GmGxMu5fboDy52LOKmawhD+kzuvV8KfigICp95BfZOXFBSYxaHEkxNs
7uP+kBFwvzcSfqqb/Gz5FYasVqtPTxLiUIv2TY4vP8OQW+ceHSiGXRjln9tC
sX4fry5oh2fSNz6cCWbI0EW780tmc6i2tz3F81DPcrt+OGfAms96FqT4MERe
h5WthRcbVsnKeqO+xTxtHoD//ih3ok8wxJuEGqrO4VDpgx84jR4M0UwUU8qH
VRfqhmW74n7zbeTjO/jPbn25M6i3Cww+XB2Dm/WC2w4dYcjoUCo/mcuhtHvX
phk7M8Rl64USO/hG9C9lcyfs3003nxDY9WRIsaMj6pexRvdzOCtnfOIx7kur
7kre7Ian8MTJDx1kyI2/k3tmCOM8J1sZ6sBzdnyerQxPPjtBx9njfNDVVcaw
sOCyU2MHkN/H7we4wcEnv0/1gA+YR6+LgscEfPx+4/7VmO41mAP3EMltj2Bd
Hku6CWZdOO5RsOz+u1I/YcVTLpan4Ykn/TEiIhwqvqNSwgduFV03Qw0OP2V4
4f/Pnx4LDDSDr1kOXfr/7xNeVf92hx1mKUzLhr0VRVyj4EdMVk0LvCvUqvMB
/KWjpEwU41P/mLK3Hv7r+OuVBSyiPVg3CN8u2l7D+X8+8Rr6s0U5VMHRDden
Yb51Q0HPVsKyq6OXuMD3TV+qmsBX287qtcEXMkTTXOF8x/L2/VgvZz7rRRGw
cPL2li+wfPG3ma9g7/dxvlKHGDJ14frgXpjaeKTrBdzuFfJnhhiHmuP2igRg
f5JWzvtsCOeJs7sEsZ9+520sneF7JQ3vO+C9XZyGcDgkZqSr/DBD5iVrFVXB
N7xfKPzfj/0aCVX/AlvYfFqegvhp3PU6nXceh6IzxcyyjjIkcpZdvB5cHdSc
0n4M92Pn9FkO8MWw/rsCiL9tlUMhoXCriMccw+MM4fM/c6wc3nlU6+x09G+f
39Z1dcAvV/TGuyOey9Ul9k8R51AHOapnuhDvAX0ZhhTsnbKp56sfQ/5YNsgV
w2sO8Fua4rx8XS/JLZjPobq3hG3Ze5khr/5ka+YswPOXRi5uz2KIAQ9l3gRH
hfjrHEG/VipQf/Q3fGVCvOIM+rW8BQN31i/kUMbaAaeK83A+tZcJlcNhjX4p
KiXY/8DbHY2SHCqyeopodz1DfoSrjP+Cj/sw2r/fYL5RJeLzpTjURoPveTxc
xOvtD0ZWsNsR4yezm5GvKxbkfYLP7xzfzYN8tpg/5sIvaeT/2SErTZA/k+fI
pYovQn3W9JUbQT8kIZFdoglfcpJbfOMHQ4SW1f3yh02ovRtbkK9Hts205ZXh
UAGi56MXoB4cN0/0VYRTviZeS0K9GLBSitsKa6z/mrAQ9aXT1aDmEhwb0uXM
j/r1OjJEXVwW52HL+MRdPpYYXhU21YTPa1RaTvCzpPzmLWdL2N+kMMZ8Bkvy
s4uTb8ADStcvDAqy5E7jKL+iHIcS/WZ0rWUuS06Ke7ZqLOZQy5a6TfVfwBL3
nP0W++D0y6NC3gtZ4mxs0OgHh3U8L3WRZMnekAXVRbCiVtfBbdKoz4MljzYv
Qf3/q3iNlUV9PZ++6hB8aLbsuwdyLFGSj00/C4sMH99xZjFLJCwdb9bAti9f
qi6VZ8mf57MubpdHf5T36LmWIksG7YZ5PeB9Sy6//gN/GfsYFAMHVh65k6PE
Elb1kTcDH5c7NiG5HP1W8j57q6Ucanubf3rzCpZ4e9HrnRQ4lGBvaHGTKvqh
uVG55+CeHbnizmoscbznuzoDXiqZqDQK7+kwXjoAK857lT1/DUvWmvyc66nI
oZxszN6uX8eSX/LU1wAlDvWrROuxghZLPLnv4uOXI7+5O87T3MSS5hNKDY/h
s1q7ZBLhjfN8ZjCw6MBT47+wwB4xf1FlDmU90Lz0iS5Lbrw1PRAFa8n17V+m
x5KX7yuUL6xAPv+nQvoNWLK4I7P09CoOZWCpv1PJmCXngsf/JsEFixi+k/CA
nJF6IZzuKbrtBZxv/zV1FI4vrQh1MGGJ6efFF31W43y6LxpONGWJX/fV3R4q
WC8ZrcNDO1jyZiC410EN/Yj09bduu1nC1RKvPguvMY5sKYDZ8IzUNDjAQerc
9P//PyzXZNcPW+smtiXAnbvl33qqc6ictNnXiixYMlRUVRGyBv3YulLXkX3o
XyMFk2+t41Cv9jjzatmwxHzVle2tWhzKUNSuZPwQ4jMosm8M/sHboqHuyBK1
pvBwSW30M4vPBh2GRU76lVjCtt/dQxm4ocx29Tt4RcOTPfecWGK8e/kcVgf9
Z/7ZdNPDLDHwL6mr38ih+Eflzp1wRTy+7DGp0EW8Fq+bbXicJXo1SpFd8AwJ
1x8+8I5qpzr+zRzKJvpeBgd2ruoyNYYr+0Rv8XmyJLG8YzsDu5CzN8rh0afv
zLr18Ll662J1L5YU3avZLbiFQ3105pP+48MS3Uvp1uZGHGrqxbBUsdMsqV20
eeIE/ENxW6EWvDu79UY8bJjv/8QOdm6a0/7O6P961mF+H760wNvezhj572+O
om4A4ilV1+moCeZTcMXCORDxW9ziHr6dQ+3hhBffDGbJtW9CYc/MkY9/xyeV
ncH7Mx9tjrVCvg+NZi9FsGRNTKWYmAP6taJNDW0xOA+N4oHTXTnU22V/e/kT
WML3UIjntSfWVyLeLTaJJU/zj8Vs9OdQ+gE+4qK3ER8LRYtlwlD/X6SED6eg
306RG0uP4FDzZDek9qaxJL6WazrrCt7Ha5EZf58loTtqtNuSkK8O7z3d+oAl
cWNKWvtS0f/I+yToP0L8T335ZnMm6qmR7Ka9eYh3zpwgvscc6t3iaQf1CliS
faKUHC/iUA27z5zfV8iSv0kPE0yecyjdT3+mKJbgvPbPmdb4GvXploX/onKW
rLuaxVfFoH8WENbhVrJkV8cP2ZgPyG8Wm/SOvWDJ1Z23jPm/ID/fSvFY+5Il
G2SihPsHkH8zd70orWUJv2hft+8wh1I4aiPrU88SGbqX+3EC952rgVLijVjf
OGWrx3xp1NRfkcqBXJasz3g7pD4njRo/eHWz6FuWaEs+X7J4fho1cXnwtuc7
llxUtnD5uiiNymr2kyxrYQnPwV2VFopp1GJNgz3r27Cfv2Py1q1Oo1IiHOqC
2lmy8mxeyz74uMi/gQtwiPh7ntPw4DUZoSuwsoacUQVsOH/atnQ44OSDj9tV
0qjDJwyK38BLx14JHFZNozp8uFGLO1hynIfX6rp6GnXybH5bBfwiSimoGD77
p/Tba1hKzji1AzaN2MPTDD/fFPtNcU0aNXpumWw/LBEqF5YLq6d6WIp1sqSY
d2Pm67Vp1HLZ2wUOsGj8gcbv8MKR8Ao32FnhzB/RdWnUith/tSdh4S21myzh
JL8rbRGwwzlL9gvMy54az4ULJALGZmikUcNhrVNL4Nnpt2VXwoYVtQI1cH7N
1yOe8E/T/aIfYCHLWVHx8NPasfndsH3v6scFcIWWstQPOM/P/H0rbJLTKzMG
Cwr6TE7C5wy1lvB+Ysl/W0YRFw==
       "]]}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
    Axes -> True, AxesOrigin -> {2900., 0.32}, Frame -> True, FrameLabel -> {{
       FormBox[
       "\"|\\!\\(\\*SubscriptBox[\\(t\\), \\(0, v\\)]\\)|\"", 
        TraditionalForm], None}, {
       FormBox[
       "\"\[Omega], \\!\\(\\*SuperscriptBox[\\(cm\\), \\(-1\\)]\\)\"", 
        TraditionalForm], None}}, Method -> {}, PlotRange -> {All, All}, 
    PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}],
   TemplateBox[{"\"v=1\"", "\"v=2\"", "\"v=3\""}, "LineLegend", 
    DisplayFunction -> (StyleBox[
      StyleBox[
       PaneBox[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.67, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.67, 0.6, 0.6]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {20, 10}, PlotRangePadding -> None, 
                 ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.9060679774997897, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.9060679774997897, 0.6, 0.6]], {}}}, AspectRatio -> 
                 Full, ImageSize -> {20, 10}, PlotRangePadding -> None, 
                 ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                GraphicsBox[{{
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.1421359549995791, 0.6, 0.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    Hue[0.1421359549995791, 0.6, 0.6]], {}}}, AspectRatio -> 
                 Full, ImageSize -> {20, 10}, PlotRangePadding -> None, 
                 ImagePadding -> 1, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
              GridBoxAlignment -> {
               "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {
               "Columns" -> {{False}}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], 
             "Grid"]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], 
        Alignment -> Left, AppearanceElements -> None, 
        ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
       LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Times"}, 
      Background -> Automatic, StripOnInput -> False]& ), Editable -> True, 
    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
       RowBox[{
         RowBox[{"{", 
           RowBox[{
             RowBox[{"Directive", "[", 
               RowBox[{"Hue", "[", 
                 RowBox[{"0.67`", ",", "0.6`", ",", "0.6`"}], "]"}], "]"}], 
             ",", 
             RowBox[{"Directive", "[", 
               RowBox[{"Hue", "[", 
                 RowBox[{"0.9060679774997897`", ",", "0.6`", ",", "0.6`"}], 
                 "]"}], "]"}], ",", 
             RowBox[{"Directive", "[", 
               RowBox[{"Hue", "[", 
                 RowBox[{"0.1421359549995791`", ",", "0.6`", ",", "0.6`"}], 
                 "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
           RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.597966109958895*^9, 3.5979661806290197`*^9}, 
   3.5979666390798254`*^9, {3.597966785814683*^9, 3.597966797015503*^9}, 
   3.5979677822058334`*^9, 3.5979679337923*^9, 3.597968158170494*^9, 
   3.597969224093966*^9, 3.5980089103935986`*^9, 3.5986378984888215`*^9},
 CellLabel->"Out[13]=",
 CellID->8016601]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection"],

Cell[BoxData[
 InterpretationBox[Cell["LocalFieldsFromLimits", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection"],

Cell[BoxData[
 InterpretationBox[Cell["SheetThickness", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection"],

Cell[BoxData[
 InterpretationBox[Cell["TransferCoefficientMethod", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection"],

Cell[BoxData[
 InterpretationBox[Cell["Incidence", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection"],

Cell[BoxData[
 InterpretationBox[Cell["InterfaceSide", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection"],

Cell[BoxData[
 InterpretationBox[Cell["AzimuthAngle", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell["\<\
Investigate effects of thin film thicknesses on the input field transfer \
coefficients for s-polarized mIR:\
\>", "ExampleText",
 CellChangeTimes->{{3.5979663366926937`*^9, 3.5979663814823723`*^9}, {
  3.5979664618703136`*^9, 3.597966478531143*^9}},
 CellID->43885416],

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "Data`Indices`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Theta]0", "=", 
        RowBox[{"56.", "\[Degree]"}]}], ",", 
       RowBox[{"n0", "=", "1"}], ",", 
       RowBox[{"JonesV", "=", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], " ", 
       RowBox[{"(*", 
        RowBox[{
         SuperscriptBox["E", "p"], "=", "0"}], "*)"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"nsheets", "=", 
        RowBox[{"{", 
         RowBox[{"nPTCDIc8", ",", "nPTCDIc8", ",", "nSi"}], "}"}]}]}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "@", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Abs", "@", 
           RowBox[{
            RowBox[{"InputTransferC", "[", 
             RowBox[{
             "JonesV", ",", "\[Omega]", ",", "\[Theta]0", ",", "n0", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"nPTCDIc8", "[", "\[Omega]", "]"}], ",", 
                  RowBox[{"d1", " ", 
                   SuperscriptBox["10", 
                    RowBox[{"-", "7"}]]}]}], 
                 RowBox[{"(*", "nm", "*)"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"nSiO2", "[", "\[Omega]", "]"}], ",", 
                  RowBox[{"d2", " ", 
                   SuperscriptBox["10", 
                    RowBox[{"-", "7"}]]}]}], 
                 RowBox[{"(*", "nm", "*)"}], "}"}]}], "}"}], ",", 
              RowBox[{"nSi", "[", "\[Omega]", "]"}], ",", "v", ",", 
              RowBox[{
               RowBox[{"nsheets", "[", 
                RowBox[{"[", "v", "]"}], "]"}], "[", "\[Omega]", "]"}]}], 
             "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"v", ",", "3"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Omega]", ",", "2900", ",", "3100"}], "}"}], ",", 
       RowBox[{"PlotLegends", "->", 
        RowBox[{"{", 
         RowBox[{"\"\<v=1\>\"", ",", "\"\<v=2\>\"", ",", "\"\<v=3\>\""}], 
         "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\[Omega], \!\(\*SuperscriptBox[\(cm\), \(-1\)]\)\>\"", ",", 
          "\"\<|\!\(\*SubscriptBox[\(t\), \(0, v\)]\)|\>\""}], "}"}]}]}], 
      "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "d1", ",", "100", ",", 
       "\"\<\!\(\*SubscriptBox[\(d\), \(PTCDIc8\)]\), nm\>\""}], "}"}], ",", 
     "0", ",", "300"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "d2", ",", "300", ",", 
       "\"\<\!\(\*SubscriptBox[\(d\), \(SiO2\)]\), nm\>\""}], "}"}], ",", "0",
      ",", "400"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.597966393650394*^9, 3.597966415240832*^9}, {
  3.5979665037407875`*^9, 3.5979665204172163`*^9}, {3.5979666568326564`*^9, 
  3.5979666570198565`*^9}, {3.5979668129909306`*^9, 3.5979668140205326`*^9}, {
  3.5979668917554693`*^9, 3.5979668921922703`*^9}, {3.5979678615641727`*^9, 
  3.5979678640445776`*^9}, {3.598019787166537*^9, 3.5980198111477795`*^9}, {
  3.598019893047923*^9, 3.598019894983327*^9}, {3.598020078518649*^9, 
  3.5980201299529395`*^9}, {3.5980201636177983`*^9, 3.598020164943801*^9}, {
  3.598020219248496*^9, 3.5980202374693284`*^9}, {3.598020269809185*^9, 
  3.5980203405553093`*^9}},
 CellLabel->"In[14]:=",
 CellID->139640487]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 761},
WindowMargins->{{123, Automatic}, {19, Automatic}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[63184, 1502, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 69678, 1693}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1059, 45, 103, 2, 70, "Categorization",
 CellID->221624252],
Cell[1165, 49, 92, 2, 70, "Categorization",
 CellID->169342178],
Cell[1260, 53, 106, 2, 70, "Categorization",
 CellID->511985160]
}, Closed]],
Cell[CellGroupData[{
Cell[1403, 60, 55, 1, 17, "KeywordsSection",
 CellID->477174294],
Cell[1461, 63, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1543, 69, 65, 1, 17, "TemplatesSection",
 CellID->1872225408],
Cell[1611, 72, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1708, 76, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1793, 80, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1877, 84, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1996, 91, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[2052, 94, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2118, 98, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2190, 102, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2257, 106, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2329, 110, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2393, 114, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2457, 118, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2523, 122, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2604, 126, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2708, 133, 57, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[2768, 136, 5733, 192, 194, "Usage"],
Cell[8504, 330, 256, 6, 23, "Notes",
 CellID->68584648],
Cell[8763, 338, 2810, 79, 73, "Notes",
 CellID->887937667],
Cell[11576, 419, 53, 0, 23, "Notes"],
Cell[11632, 421, 2674, 61, 424, "3ColumnTableMod"],
Cell[14309, 484, 634, 18, 37, "Notes",
 CellID->1334113],
Cell[14946, 504, 424, 11, 23, "Notes",
 CellID->534591821]
}, Open  ]],
Cell[CellGroupData[{
Cell[15407, 520, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[15467, 523, 309, 6, 16, "Tutorials",
 CellID->341631938],
Cell[15779, 531, 353, 7, 16, "Tutorials",
 CellID->18593093]
}, Open  ]],
Cell[CellGroupData[{
Cell[16169, 543, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[16255, 546, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[16350, 552, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[16418, 555, 444, 8, 29, "RelatedLinks",
 CellID->148884605],
Cell[16865, 565, 476, 8, 29, "RelatedLinks",
 CellID->134447493]
}, Open  ]],
Cell[CellGroupData[{
Cell[17378, 578, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[17436, 581, 717, 21, 19, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[18190, 607, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[18250, 610, 260, 6, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[18547, 621, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[18906, 634, 211, 5, 20, "ExampleText",
 CellID->488298743],
Cell[19120, 641, 565, 9, 48, "Input",
 CellID->91183982],
Cell[CellGroupData[{
Cell[19710, 654, 2692, 74, 157, "Input",
 CellID->130338898],
Cell[22405, 730, 2931, 67, 69, "Output",
 CellID->255465086]
}, Open  ]],
Cell[25351, 800, 484, 9, 33, "ExampleText",
 CellID->175762243],
Cell[25838, 811, 164, 4, 27, "Input",
 CellID->5168052],
Cell[CellGroupData[{
Cell[26027, 819, 2625, 74, 217, "Input",
 CellID->2334789],
Cell[28655, 895, 34480, 601, 131, "Output",
 CellID->8016601]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63184, 1502, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[63287, 1506, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[63415, 1511, 148, 3, 18, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[63588, 1518, 106, 2, 18, "ExampleSection"],
Cell[63697, 1522, 126, 2, 21, "ExampleSubsection"],
Cell[63826, 1526, 119, 2, 17, "ExampleSubsection"],
Cell[63948, 1530, 130, 2, 17, "ExampleSubsection"],
Cell[64081, 1534, 114, 2, 17, "ExampleSubsection"],
Cell[64198, 1538, 118, 2, 17, "ExampleSubsection"],
Cell[64319, 1542, 117, 2, 17, "ExampleSubsection"]
}, Open  ]],
Cell[64451, 1547, 131, 3, 30, "ExampleSection",
 CellID->258228157],
Cell[64585, 1552, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[64730, 1557, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[CellGroupData[{
Cell[64890, 1564, 140, 3, 18, "ExampleSection",
 CellID->1653164318],
Cell[65033, 1569, 279, 6, 33, "ExampleText",
 CellID->43885416],
Cell[65315, 1577, 3791, 95, 267, "Input",
 CellID->139640487]
}, Open  ]],
Cell[69121, 1675, 132, 3, 30, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
